home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / fw30030p.lha / Install FinalWriter-030 < prev    next >
Text File  |  1994-12-30  |  1KB  |  67 lines
  1. ; $VER: FinalWriter-030_Install 1.1 (30.12.94)
  2.  
  3. (set version "3.0")
  4.  
  5. (onerror (exit (quiet)))
  6.  
  7. (message
  8.     "\n\nFinalWriter " version "-030 Deutsch"
  9.     "\nCopyright 1994 Martin Berndt"
  10.     "\n\n\nDieser Patch ist SHAREWARE !"
  11.     "\n\nBitte beachten sie das \"Liesmich.txt\" File."
  12. )
  13.  
  14. (set @default-dest
  15.     (askdir
  16.         (prompt "Wo befindet sich ihr FinalWriter Verzeichnis?")
  17.         (help @askfile-help)
  18.         (default "SYS:FinalWriter")
  19.         (newpath)
  20.     )
  21. )
  22.  
  23. (set backup
  24.     (askoptions
  25.         (prompt "Optionen")
  26.         (help @askoptions-help)
  27.         (choices "Backup Files anlegen")
  28.     )
  29. )
  30.  
  31. (set n 0)
  32. (set percent 0)
  33.  
  34. (while (set name (select n "FinalWriter" "swpost.library" "swshell.library"
  35.                "cachemap.library" "qfont.library" "")) (
  36.     (set n (+ n 1))
  37.     (complete percent)
  38.     (if (= n 1)
  39.         (set file name)
  40.         (set file (cat "FWLibs/" name))
  41.     )
  42.     (set newfile (tackon @default-dest file))
  43.     (set oldfile (cat newfile ".bak"))
  44.     (if (= (exists newfile) 0)
  45.         (abort name " wurde nicht gefunden!")
  46.     )
  47.     (rename newfile oldfile)
  48.     (if (< n 4) (
  49.         (working "\n\n" newfile)
  50.         (if (<> (run (cat "spatch \"-o" newfile "\" -p" name ".pch \"" oldfile "\"")) 0) (
  51.             (rename oldfile newfile)
  52.             (abort "Falsche Version!")
  53.         ))
  54.         (set percent (+ percent 30))
  55.     ) (
  56.         (copyfiles
  57.             (prompt "Kopiere " name)
  58.             (help @copyfiles-help)
  59.             (source name)
  60.             (dest (tackon @default-dest "FWLibs"))
  61.             (optional "force" "askuser")
  62.         )
  63.         (set percent (+ percent 5))
  64.     ))
  65.     (if (= backup 0) (delete oldfile))
  66. ))
  67.